object FolderDialogForm: TFolderDialogForm Left = 376 Top = 163 ActiveControl = dTree BorderIcons = [biSystemMenu] BorderStyle = bsDialog Caption = 'Select Directory' ClientHeight = 345 ClientWidth = 317 Color = clBtnFace Constraints.MinHeight = 300 Constraints.MinWidth = 300 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter OnCloseQuery = FormCloseQuery OnCreate = FormCreate DesignSize = ( 317 345) PixelsPerInch = 96 TextHeight = 13 object lTitle: TLabel Left = 8 Top = 8 Width = 299 Height = 33 Anchors = [akLeft, akTop, akRight] AutoSize = False WordWrap = True end object bNew: TButton Left = 8 Top = 313 Width = 99 Height = 25 Anchors = [akLeft, akRight, akBottom] TabOrder = 1 OnClick = bNewClick end object dTree: TShellTreeView Left = 8 Top = 80 Width = 298 Height = 220 ObjectTypes = [otFolders] Root = 'rfDesktop' UseShellImages = True Anchors = [akLeft, akTop, akRight, akBottom] AutoRefresh = False Indent = 19 ParentColor = False RightClickSelect = True ShowRoot = False TabOrder = 0 OnChange = dTreeChange end object bOK: TButton Left = 130 Top = 313 Width = 85 Height = 25 Anchors = [akLeft, akRight, akBottom] Caption = '&OK' Default = True ModalResult = 1 TabOrder = 2 end object bCancel: TButton Left = 226 Top = 313 Width = 83 Height = 25 Anchors = [akLeft, akRight, akBottom] Cancel = True Caption = 'Cancel' ModalResult = 2 TabOrder = 3 end object eDir: TEdit Left = 8 Top = 48 Width = 299 Height = 19 Anchors = [akLeft, akTop, akRight] Ctl3D = False ParentCtl3D = False TabOrder = 4 OnChange = eDirChange end end